home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / perl / sync.ph < prev    next >
Encoding:
Text File  |  1991-08-12  |  873 b   |  27 lines
  1. if (!defined &_SYNCUSER) {
  2.     eval 'sub _SYNCUSER {1;}';
  3.     if (!defined &_SPRITE) {
  4.     }
  5.     if (!defined &KERNEL) {
  6.     }
  7.     if (!defined &LOCKDEP) {
  8.     eval 'sub SYNC_MAX_PRIOR {1;}';
  9.     }
  10.     else {
  11.     eval 'sub SYNC_MAX_PRIOR {30;}';
  12.     }
  13.     eval 'sub LOCK_MONITOR {( &void)  &Sync_GetLock( &LOCKPTR);}';
  14.     eval 'sub UNLOCK_MONITOR {( &void)  &Sync_Unlock( &LOCKPTR);}';
  15.     eval 'sub ENTRY {1;}';
  16.     eval 'sub INTERNAL {1;}';
  17.     eval 'sub Sync_Wait {
  18.         local($conditionPtr, $wakeIfSignal) = @_;
  19.         eval " &Sync_SlowWait($conditionPtr,  &LOCKPTR, $wakeIfSignal)";
  20.     }';
  21.     eval 'sub Sync_Broadcast {
  22.         local($conditionPtr) = @_;
  23.         eval " &if ((( &Sync_Condition *)$conditionPtr)-> &waiting ==  &TRUE) { ( &void) &Sync_SlowBroadcast(( &unsigned \'int\') $conditionPtr, &(( &Sync_Condition *)$conditionPtr)-> &waiting); }";
  24.     }';
  25. }
  26. 1;
  27.